NT Sources/Infomagic - NT Source Volume 1 (Disc 1 of 2).iso/graphics/bbdemo.exe/_SETUP.1/ADDEDIMG.dll/RCDATA/TADDEDITFORM/TADDEDITFORM.txt

Text File | 1998-01-29 | 17KB | 694 lines

object AddEditForm: TAddEditForm
  Left = 33
  Top = 109
  BorderStyle = bsDialog
  Caption = 'Add/Update Image(s)'
  ClientHeight = 330
  ClientWidth = 742
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 6
    Top = 3
    Width = 731
    Height = 323
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Visible = False
    object StopButn: TButton
      Left = 320
      Top = 271
      Width = 75
      Height = 25
      Caption = 'Stop'
      TabOrder = 0
      OnClick = StopButnClick
    end
  end
  object group1: TGroupBox
    Left = 14
    Top = 7
    Width = 711
    Height = 221
    Caption = '&1. Image Files'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label4: TLabel
      Left = 502
      Top = 83
      Width = 26
      Height = 13
      Caption = 'Order'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 526
      Top = 197
      Width = 73
      Height = 13
      Caption = 'File Size (bytes)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 603
      Top = 197
      Width = 103
      Height = 14
      DataField = 'File Size'
      DataSource = wwDataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 169
      Top = 187
      Width = 120
      Height = 13
      Caption = 'Drag and Drop supported'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 535
      Top = 22
      Width = 160
      Height = 170
      Caption = 'Previe&w'
      TabOrder = 11
      object AutoPreviewCheck: TCheckBox
        Left = 20
        Top = 14
        Width = 114
        Height = 17
        Caption = 'Auto Create'
        State = cbChecked
        TabOrder = 0
        OnClick = AutoPreviewCheckClick
      end
    end
    object Button6: TButton
      Left = 19
      Top = 24
      Width = 97
      Height = 24
      Hint = 'Load Files into Batch Storage'
      Caption = '&Select'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Button6Click
    end
    object RemoveButn: TButton
      Left = 245
      Top = 24
      Width = 95
      Height = 24
      Hint = 'Remove from Batch Selection'
      Caption = '&Remove'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = RemoveButnClick
    end
    object Button7: TButton
      Left = 359
      Top = 24
      Width = 97
      Height = 24
      Caption = 'Remo&ve All'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button7Click
    end
    object UpButn: TButton
      Left = 502
      Top = 104
      Width = 25
      Height = 20
      Hint = 'Move Up'
      Caption = '�'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = UpButnClick
    end
    object DownButn: TButton
      Left = 502
      Top = 132
      Width = 25
      Height = 20
      Hint = 'Move Down'
      Caption = '�'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = DownButnClick
    end
    object FileGrid: TwwDBGrid
      Left = 12
      Top = 58
      Width = 485
      Height = 123
      Hint = 'Drag and Drop from Explorer'
      Selected.Strings = (
        'Image Number'#9'4'#9'No'
        'By Reference'#9'13'#9'By Reference'
        'Image Location'#9'45'#9'Image Location'
        'Substitute Image'#9'10'#9'Substitute')
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
      Color = clBtnFace
      DataSource = wwDataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = False
      IndicatorColor = icBlack
    end
    object Button1: TButton
      Left = 129
      Top = 24
      Width = 97
      Height = 24
      Hint = 'Drag and Drop is supported'
      Caption = 'Launch &Explorer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = Button1Click
    end
    object AllRefsButn: TButton
      Left = 56
      Top = 186
      Width = 35
      Height = 19
      Hint = 'All File by Reference'
      Caption = 'All'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = AllRefsButnClick
    end
    object NoRefsButn: TButton
      Left = 91
      Top = 186
      Width = 35
      Height = 19
      Hint = 'No File by References'
      Caption = 'None'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = NoRefsButnClick
    end
    object AllSubsButn: TButton
      Left = 407
      Top = 186
      Width = 35
      Height = 19
      Hint = 'All Substitutes'
      Caption = 'All'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = AllSubsButnClick
    end
    object NoSubsButn: TButton
      Left = 442
      Top = 186
      Width = 35
      Height = 19
      Hint = 'None Substitutes'
      Caption = 'None'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = NoSubsButnClick
    end
  end
  object Image: TGroupBox
    Left = 14
    Top = 234
    Width = 460
    Height = 79
    Caption = '&2. Destination'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 52
      Top = 30
      Width = 29
      Height = 13
      Caption = '&Album'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object wwDBLookupComboDlg1: TwwDBLookupComboDlg
      Left = 111
      Top = 26
      Width = 240
      Height = 21
      GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
      GridColor = clWhite
      GridTitleAlignment = taLeftJustify
      Caption = 'Lookup'
      MaxWidth = 0
      MaxHeight = 209
      Selected.Strings = (
        'Album'#9'30'#9'Album')
      DataField = 'Album ID'
      DataSource = DataSource2
      LookupTable = AlbumTable
      LookupField = 'Album ID'
      SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
      TabOrder = 0
      AutoDropDown = False
      ShowButton = True
      AllowClearKey = False
    end
    object CheckBox1: TCheckBox
      Left = 111
      Top = 57
      Width = 184
      Height = 16
      Hint = 'File Reference Only'
      Caption = 'Suppress Thumbnail creation'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object OKButn: TButton
    Left = 521
    Top = 271
    Width = 75
    Height = 25
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 2
    OnClick = OKBtnClick
  end
  object CancelButn: TButton
    Left = 606
    Top = 271
    Width = 75
    Height = 25
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object Panel2: TPanel
    Left = 567
    Top = 62
    Width = 126
    Height = 126
    BevelOuter = bvLowered
    Caption = 'Panel2'
    TabOrder = 5
    object DBImage1: TDBImage
      Left = 1
      Top = 1
      Width = 124
      Height = 124
      BorderStyle = bsNone
      DataField = 'Thumbnail'
      DataSource = wwDataSource2
      ParentColor = True
      TabOrder = 0
      OnDblClick = FileGridDblClick
    end
  end
  object DataSource2: TwwDataSource
    DataSet = FotoTable
    Left = 106
    Top = 112
  end
  object FotoTable: TwwTable
    DatabaseName = 'BOWERBIRD'
    IndexFieldNames = 'Album ID'
    TableName = 'FOTOINFO.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 78
    Top = 112
    object FotoTableAlbumID: TStringField
      FieldName = 'Album ID'
      Size = 8
    end
    object FotoTablePictureNumber: TIntegerField
      FieldName = 'Picture Number'
    end
    object FotoTablePosition: TIntegerField
      FieldName = 'Position'
    end
    object FotoTableDateTaken: TDateField
      FieldName = 'Date Taken'
    end
    object FotoTableApproximateDateTaken: TBooleanField
      FieldName = 'Approximate Date Taken'
    end
    object FotoTableDateEntered: TDateField
      FieldName = 'Date Entered'
    end
    object FotoTableCaption: TStringField
      FieldName = 'Caption'
      Size = 60
    end
    object FotoTableComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
      Size = 20
    end
    object FotoTableSubstituteImage: TBooleanField
      FieldName = 'Substitute Image'
    end
    object FotoTableNoImage: TBooleanField
      FieldName = 'No Image'
    end
    object FotoTableActualFileName: TStringField
      FieldName = 'Actual File Name'
      Size = 200
    end
    object FotoTableImageReference: TBooleanField
      FieldName = 'Image Reference'
    end
    object FotoTableReferenceVolumeLabel: TStringField
      FieldName = 'Reference Volume Label'
      Size = 11
    end
    object FotoTableImageType: TStringField
      FieldName = 'Image Type'
      Size = 4
    end
    object FotoTableImageWidth: TIntegerField
      FieldName = 'Image Width'
    end
    object FotoTableImageHeight: TIntegerField
      FieldName = 'Image Height'
    end
    object FotoTableImageBitsperpixel: TIntegerField
      FieldName = 'Image Bits per pixel'
    end
    object FotoTableImagePlanes: TIntegerField
      FieldName = 'Image Planes'
    end
    object FotoTableImageColours: TIntegerField
      FieldName = 'Image Colours'
    end
    object FotoTableImagePages: TIntegerField
      FieldName = 'Image Pages'
    end
    object FotoTableImageCompression: TStringField
      FieldName = 'Image Compression'
    end
    object FotoTableImageSize: TIntegerField
      FieldName = 'Image Size'
    end
    object FotoTableCopyrightRestricted: TBooleanField
      FieldName = 'Copyright Restricted'
    end
    object FotoTableCopyrightInformation: TStringField
      FieldName = 'Copyright Information'
      Size = 50
    end
    object FotoTableThumbnail: TGraphicField
      FieldName = 'Thumbnail'
      BlobType = ftGraphic
      Size = 1
    end
  end
  object SlidTable: TwwTable
    TableName = 'h:\nemo\AAAAAAAA.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 134
    Top = 112
    object SlidTablePictureNumber: TIntegerField
      FieldName = 'Picture Number'
    end
    object SlidTablePictureType: TStringField
      FieldName = 'Picture Type'
      Size = 6
    end
    object SlidTablePicture: TBlobField
      FieldName = 'Picture'
      BlobType = ftBlob
      Size = 1
    end
  end
  object DataSource4: TwwDataSource
    DataSet = SlidTable
    Left = 162
    Top = 112
  end
  object AlbumTable: TwwTable
    DatabaseName = 'BOWERBIRD'
    TableName = 'LKALBUM.DB'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 78
    Top = 140
    object AlbumTableAlbumID: TStringField
      FieldName = 'Album ID'
      Size = 8
    end
    object AlbumTableAlbum: TStringField
      FieldName = 'Album'
      Size = 30
    end
    object AlbumTableLocation: TStringField
      FieldName = 'Location'
      Size = 255
    end
    object AlbumTableTableName: TStringField
      FieldName = 'Table Name'
      Size = 8
    end
    object AlbumTableTableCreated: TBooleanField
      FieldName = 'Table Created'
    end
    object AlbumTableVolumeLabel: TStringField
      FieldName = 'Volume Label'
      Size = 11
    end
    object AlbumTableComments: TMemoField
      FieldName = 'Comments'
      BlobType = ftMemo
      Size = 10
    end
  end
  object wwDataSource1: TwwDataSource
    DataSet = AlbumTable
    Left = 106
    Top = 140
  end
  object StorageTable: TwwTable
    TableName = 'c:\temp\STORAGE.DB'
    ControlType.Strings = (
      'Delete File;CheckBox;True;False'
      'By Reference;CheckBox;True;False'
      'Substitute Image;CheckBox;True;False')
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 78
    Top = 83
    object StorageTableImageNumber: TIntegerField
      DisplayLabel = 'No'
      DisplayWidth = 4
      FieldName = 'Image Number'
    end
    object StorageTableByReference: TBooleanField
      DisplayWidth = 13
      FieldName = 'By Reference'
    end
    object StorageTableImageLocation: TStringField
      DisplayWidth = 45
      FieldName = 'Image Location'
      Size = 255
    end
    object StorageTableSubstituteImage: TBooleanField
      DisplayLabel = 'Substitute'
      DisplayWidth = 10
      FieldName = 'Substitute Image'
    end
    object StorageTableFileSize: TIntegerField
      FieldName = 'File Size'
      Visible = False
    end
    object StorageTableDeleteFile: TStringField
      FieldName = 'Delete File'
      Visible = False
      Size = 1
    end
    object StorageTableError: TStringField
      FieldName = 'Error'
      Visible = False
      Size = 100
    end
    object StorageTableThumbnail: TGraphicField
      FieldName = 'Thumbnail'
      Visible = False
      BlobType = ftGraphic
      Size = 1
    end
  end
  object wwDataSource2: TwwDataSource
    DataSet = StorageTable
    Left = 106
    Top = 83
  end
  object OpenDialog1: TOpenDialog
    Options = [ofAllowMultiSelect, ofPathMustExist, ofFileMustExist]
    Left = 134
    Top = 140
  end
  object VolTable: TwwTable
    DatabaseName = 'BOWERBIRD'
    TableName = 'VolLabel.db'
    SyncSQLByRange = True
    NarrowSearch = False
    ValidateWithMask = True
    Left = 192
    Top = 141
    object VolTableVolumeLabel: TStringField
      FieldName = 'Volume Label'
      Size = 11
    end
    object VolTableMediaDescription: TStringField
      FieldName = 'Media Description'
      Size = 30
    end
    object VolTableDrive: TStringField
      FieldName = 'Drive'
      Size = 1
    end
  end
end